
    local controls lnsize age1900 fxassratio_MEAN  
    local depvar DR 
    local varlist1 Dstocksize_low3rd Dcap025 `controls'
    local varlist2 Dstocksize_low3rd Dcap05 `controls'
    local varlist3 Dstocksize_low3rd Dcap075 `controls' 
    local varlist4 Dstocksize_low3rd Dcap10 `controls'
    local varlist5 Dstocksize_low3rd slope_at_100 `controls'
    local varlist6 Dstocksize_low3rd `controls'
      
    forvalues i=1/6{
    logit `depvar' `varlist`i'' , nolog robust     
    margins, dydx(`varlist`i'')  asobserved   
 }   

    qui logit `depvar' `varlist5' , nolog robust     
    margins, at(slope_at_100=(.340 .604)) asobserved post             /* one std dev around the mean */
    di   _b[1._at] - _b[2._at]  
    test _b[1._at] = _b[2._at]  
